00100	GLISS 0 0 33; 
00200	P2 .24;
00300	P3 "P7"; <PICKS UP PREVIOUS VALUE
00400	P4 2000;
00500	P5 FUNC/10/11//12/REP 4 8/ 1; <4-NOTE PHRASES, LAST NOTE SOST.
00600	P6 F4; <TONE OF GLISS.
00700	P7 NOTES/D4/E/F/G/ F/E/D/C; <UP AND DOWN C→G→C
00800	P8 P2;
00900	P9 F5; <SHAPE OF GLISS.
01000	END;
01100	
01200	INSERT -99;
01300	P7←C ;<INITIALIZES P7 SO P3 FINDS THE RIGHT NOTE.
01400	
01500	DUMMY  INVIS 0 0 33;
01600	P2 P2;
01700	P3 "SEG(F5); 0 1"; <F5 ALWAYS STARTS AT ZERO
01800	P4 0;  < AMPL. OF 2ND STEP IS ALWAYS 0
01900	P5 MOVE/7.2  99 1;  < 2ND STEP MOVES FROM 99 TO 1.
02000	P6 1; < AMPL OF LAST STEP
02100	P7 100;  < LAST STEP NUM.
02200	END;
02300	
02400	DUMMY 2 33;
02500	P6 0; < NO GLISS ON LAST NOTE!
02600	END;